Public Class DataParameter
    Implements IDbDataParameter

    Private _value As Object
    Private _dbType As System.Data.DbType
    Private _direction As System.Data.ParameterDirection
    Private _IsNullable As Boolean
    Private _Name As String

    Public Property DbType() As System.Data.DbType Implements System.Data.IDataParameter.DbType
        Get
            Return _dbType
        End Get
        Set(ByVal value As System.Data.DbType)
            _dbType = value
        End Set
    End Property
    Public Sub New()

    End Sub
    Public Sub New(ByVal type As DbType)
        Me.DbType = type
    End Sub
    Public Property Direction() As System.Data.ParameterDirection Implements System.Data.IDataParameter.Direction
        Get
            Return _direction
        End Get
        Set(ByVal value As System.Data.ParameterDirection)
            _direction = value
        End Set
    End Property

    Public ReadOnly Property IsNullable() As Boolean Implements System.Data.IDataParameter.IsNullable
        Get
            Return _IsNullable
        End Get
    End Property

    Public Property ParameterName() As String Implements System.Data.IDataParameter.ParameterName
        Get
            Return _Name
        End Get
        Set(ByVal value As String)
            _Name = value
        End Set
    End Property

    Private _SourceColumn As String

    Public Property SourceColumn() As String Implements System.Data.IDataParameter.SourceColumn
        Get
            Return _SourceColumn
        End Get
        Set(ByVal value As String)
            _SourceColumn = value
        End Set
    End Property
    Private _SourceVersion As System.Data.DataRowVersion
    Public Property SourceVersion() As System.Data.DataRowVersion Implements System.Data.IDataParameter.SourceVersion
        Get
            Return _SourceVersion
        End Get
        Set(ByVal value As System.Data.DataRowVersion)
            _SourceVersion = value
        End Set
    End Property

    Public Property Value() As Object Implements System.Data.IDataParameter.Value
        Get
            Return _value
        End Get
        Set(ByVal value As Object)
            _value = value
        End Set
    End Property

    Private _Precision As Byte
    Public Property Precision() As Byte Implements System.Data.IDbDataParameter.Precision
        Get
            Return _Precision
        End Get
        Set(ByVal value As Byte)
            _Precision = value
        End Set
    End Property
    Private _Scale As Byte
    Public Property Scale() As Byte Implements System.Data.IDbDataParameter.Scale
        Get
            Return _Scale
        End Get
        Set(ByVal value As Byte)
            _Scale = value
        End Set
    End Property

    Private _size As Integer
    Public Property Size() As Integer Implements System.Data.IDbDataParameter.Size
        Get
            Return _size
        End Get
        Set(ByVal value As Integer)
            _size = value
        End Set
    End Property
End Class
